home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Games / Strategy / Puzzle / GameMaster / GM Dev Kit / Pascal Units / DialogSubs.p < prev    next >
Encoding:
Text File  |  1991-11-07  |  1.6 KB  |  72 lines  |  [TEXT/PJMM]
  1. unit DialogSubs;
  2.  
  3. { ©1991 Quinn "The Eskimo" }
  4.  
  5. interface
  6.  
  7.     procedure GetDRect (dlg: DialogPtr; item: integer; var r: Rect);
  8.     procedure SetDRect (dlg: DialogPtr; item: integer; r: Rect);
  9.  
  10.     procedure GetDKind (dlg: DialogPtr; item: integer; var k: integer);
  11.     procedure SetDKind (dlg: DialogPtr; item: integer; k: integer);
  12.  
  13.     procedure GetDHandle (dlg: DialogPtr; item: integer; var h: Handle);
  14.     procedure SetDHandle (dlg: DialogPtr; item: integer; h: Handle);
  15.  
  16. implementation
  17.  
  18.     procedure GetDRect (dlg: DialogPtr; item: integer; var r: Rect);
  19.         var
  20.             k: integer;
  21.             h: Handle;
  22.     begin
  23.         GetDItem(dlg, item, k, h, r);
  24.     end; { GetDRect }
  25.  
  26.     procedure SetDRect (dlg: DialogPtr; item: integer; r: Rect);
  27.         var
  28.             k: integer;
  29.             h: Handle;
  30.             junk: Rect;
  31.     begin
  32.         GetDItem(dlg, item, k, h, junk);
  33.         SetDItem(dlg, item, k, h, r);
  34.     end; { SetDRect }
  35.  
  36.     procedure GetDKind (dlg: DialogPtr; item: integer; var k: integer);
  37.         var
  38.             h: Handle;
  39.             r: Rect;
  40.     begin
  41.         GetDItem(dlg, item, k, h, r);
  42.     end; { GetDKind }
  43.  
  44.     procedure SetDKind (dlg: DialogPtr; item: integer; k: integer);
  45.         var
  46.             h: Handle;
  47.             r: Rect;
  48.             tk: integer;
  49.     begin
  50.         GetDItem(dlg, item, tk, h, r);
  51.         SetDItem(dlg, item, k, h, r);
  52.     end;
  53.  
  54.     procedure GetDHandle (dlg: DialogPtr; item: integer; var h: Handle);
  55.         var
  56.             k: integer;
  57.             r: Rect;
  58.     begin
  59.         GetDItem(dlg, item, k, h, r);
  60.     end; { GetDHandle }
  61.  
  62.     procedure SetDHandle (dlg: DialogPtr; item: integer; h: Handle);
  63.         var
  64.             k: integer;
  65.             junk: Handle;
  66.             r: Rect;
  67.     begin
  68.         GetDItem(dlg, item, k, junk, r);
  69.         SetDItem(dlg, item, k, h, r);
  70.     end; { SetDHandle }
  71.  
  72. end. { DialogSubs }